﻿<ComClass(进程信息.ClassId, 进程信息.InterfaceId, 进程信息.EventsId)>
Public Class 进程信息

#Region "COM GUID"
    ' 这些 GUID 提供此类的 COM 标识 
    ' 及其 COM 接口。若更改它们，则现有的
    ' 客户端将不再能访问此类。
    Public Const ClassId As String = "f0d1f9e4-5c02-4018-86be-f9c302aeaedb"
    Public Const InterfaceId As String = "a0c7dd94-6ba2-49cb-b324-ad5370113f38"
    Public Const EventsId As String = "119702ae-d892-46b0-b10d-b05a80417a08"
#End Region

    ' 可创建的 COM 类必须具有一个不带参数的 Public Sub New() 
    ' 否则， 将不会在 
    ' COM 注册表中注册此类，且无法通过
    ' CreateObject 创建此类。
    Public Sub New()
        MyBase.New()
    End Sub

    Private _AppName As String
    Public Property 程序名称() As String
        Get
            Return _AppName
        End Get
        Set(ByVal value As String)
            _AppName = value
        End Set
    End Property

    Private _ProcessId As String
    Public Property 进程id() As String
        Get
            Return _ProcessId
        End Get
        Set(ByVal value As String)
            _ProcessId = value
        End Set
    End Property

    Private _appCaption As String
    Public Property 窗口标题() As String
        Get
            Return _appCaption
        End Get
        Set(ByVal value As String)
            _appCaption = value
        End Set
    End Property

    Private _appHwnd As String
    Public Property 窗口句柄() As String
        Get
            Return _appHwnd
        End Get
        Set(ByVal value As String)
            _appHwnd = value
        End Set
    End Property

    Private _exeName As String
    Public Property 程序的全路径() As String
        Get
            Return _exeName
        End Get
        Set(ByVal value As String)
            _exeName = value
        End Set
    End Property

    Private _Version As String
    Public Property 程序版本() As String
        Get
            Return _Version
        End Get
        Set(ByVal value As String)
            _Version = value
        End Set
    End Property

    Private _openfiles As String()
    Public Property 打开的文档() As String()
        Get
            Return _openfiles
        End Get
        Set(ByVal value As String())
            _openfiles = value
        End Set
    End Property

    'Private _comObj As Object
    'Public Property ComObject As Object
    '    Get
    '        Return _comObj
    '    End Get
    '    Set(ByVal value As Object)
    '        _comObj = value
    '    End Set
    'End Property

End Class


